From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 10 May 1997 03:19:20 +0000 (+0000)
Subject: (Fread_coding_system, Fread_non_nil_coding_system):
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~81355
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=9d991de859ab0d42f6e16373fe522dfeebc0b2f5;p=emacs.git

(Fread_coding_system, Fread_non_nil_coding_system):
Pass new arg to Fcompleting_read.
---

diff --git a/src/coding.c b/src/coding.c
index 2d14c7aeafc..faae05d9136 100644
--- a/src/coding.c
+++ b/src/coding.c
@@ -2748,17 +2748,19 @@ See document of make-coding-system for coding-system object.")
   return ((NILP (obj) || !NILP (Fcoding_system_vector (obj))) ? Qt : Qnil);
 }
 
-DEFUN ("read-non-nil-coding-system",
-       Fread_non_nil_coding_system, Sread_non_nil_coding_system, 1, 1, 0,
+DEFUN ("read-non-nil-coding-system", Fread_non_nil_coding_system,
+       Sread_non_nil_coding_system, 1, 1, 0,
   "Read a coding system from the minibuffer, prompting with string PROMPT.")
   (prompt)
      Lisp_Object prompt;
 {
   Lisp_Object val;
-  do {
-    val = Fcompleting_read (prompt, Vobarray, Qcoding_system_vector,
-			    Qt, Qnil, Qnil);
-  } while (XSTRING (val)->size == 0);
+  do
+    {
+      val = Fcompleting_read (prompt, Vobarray, Qcoding_system_vector,
+			      Qt, Qnil, Qnil, Qnil);
+    }
+  while (XSTRING (val)->size == 0);
   return (Fintern (val, Qnil));
 }
 
@@ -2768,7 +2770,7 @@ DEFUN ("read-coding-system", Fread_coding_system, Sread_coding_system, 1, 1, 0,
      Lisp_Object prompt;
 {
   Lisp_Object val = Fcompleting_read (prompt, Vobarray, Qcoding_system_p,
-				      Qt, Qnil, Qnil);
+				      Qt, Qnil, Qnil, Qnil);
   return (XSTRING (val)->size == 0 ? Qnil : Fintern (val, Qnil));
 }